﻿Public MustInherit Class Automovil

    Private Sub Acelerar()
        Output.Print("Acelerando...")
    End Sub

    Private Sub Frenar()
        Output.Print("Frenando...")
    End Sub

    Protected MustOverride Sub CambiarMarcha()

    Public Sub Desplazar()
        Acelerar()
        CambiarMarcha()
        Frenar()
    End Sub

End Class
